### DRAW SAMPLE

set.seed(7384)

# 50% SAMPLE:

auth_samp <- sample(N_auth_full, round(0.50*N_auth_full) )

# Revise main lists of authors:

authorcounts <- authorcounts[auth_samp]

paperlist <- paperlist[auth_samp]

# Number of authors in sample:

N_auth_full <- length(authorcounts)

# Check:

all(authorcounts == lengths(paperlist) )

all(names(authorcounts) == names(paperlist) )
